/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_1 / issue_09 / debugger / basicprogs / pi

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 64 17 f4 20 3e 20 | 26 2e 42 61 73 69 63 50 |..d.. > |&.BasicP|
|00000010| 72 6f 67 73 2e 50 69 0d | 00 6e 23 f4 20 41 75 74 |rogs.Pi.|.n#. Aut|
|00000020| 68 6f 72 20 20 20 20 20 | 20 20 20 20 20 20 3a 20 |hor     |      : |
|00000030| 47 20 4c 20 46 69 74 74 | 6f 6e 0d 00 78 28 f4 20 |G L Fitt|on..x(. |
|00000040| 43 6f 70 79 72 69 67 68 | 74 20 20 20 20 20 20 20 |Copyrigh|t       |
|00000050| 20 3a 20 41 42 41 43 55 | 53 20 54 52 41 49 4e 49 | : ABACU|S TRAINI|
|00000060| 4e 47 0d 00 82 28 f4 20 | 56 65 72 73 69 6f 6e 20 |NG...(. |Version |
|00000070| 31 2e 30 30 20 20 20 20 | 20 3a 20 32 34 74 68 20 |1.00    | : 24th |
|00000080| 41 70 72 69 6c 20 31 39 | 38 38 0d 00 8c 05 3a 0d |April 19|88....:.|
|00000090| 00 96 05 3a 0d 00 a0 36 | f4 20 46 69 6e 64 73 20 |...:...6|. Finds |
|000000a0| 74 68 65 20 76 61 6c 75 | 65 20 6f 66 20 70 69 20 |the valu|e of pi |
|000000b0| 74 6f 20 31 38 20 73 69 | 67 6e 69 66 69 63 61 6e |to 18 si|gnifican|
|000000c0| 74 20 66 69 67 75 72 65 | 73 2e 0d 00 aa 33 f4 20 |t figure|s....3. |
|000000d0| 55 73 65 73 20 74 68 65 | 20 46 6c 6f 61 74 69 6e |Uses the| Floatin|
|000000e0| 67 20 50 6f 69 6e 74 20 | 45 6d 75 6c 61 74 6f 72 |g Point |Emulator|
|000000f0| 20 56 65 72 73 69 6f 6e | 20 32 2e 34 30 0d 00 b4 | Version| 2.40...|
|00000100| 34 f4 20 77 69 74 68 20 | 64 6f 75 62 6c 65 20 65 |4. with |double e|
|00000110| 78 74 65 6e 64 65 64 20 | 70 72 65 63 69 73 69 6f |xtended |precisio|
|00000120| 6e 20 61 6e 64 20 72 65 | 74 75 72 6e 73 20 74 68 |n and re|turns th|
|00000130| 65 0d 00 be 2c f4 20 61 | 6e 73 77 65 72 20 69 6e |e...,. a|nswer in|
|00000140| 20 50 61 63 6b 65 64 20 | 42 69 6e 61 72 79 20 43 | Packed |Binary C|
|00000150| 6f 64 65 64 20 44 65 63 | 69 6d 61 6c 2e 0d 00 c8 |oded Dec|imal....|
|00000160| 05 3a 0d 00 d2 05 3a 0d | 00 dc 47 c8 9b 20 22 26 |.:....:.|..G.. "&|
|00000170| 2e 42 61 73 69 63 50 72 | 6f 67 73 2e 46 70 41 73 |.BasicPr|ogs.FpAs|
|00000180| 73 22 3a f4 20 54 68 65 | 20 46 70 41 73 73 65 6d |s":. The| FpAssem|
|00000190| 62 6c 65 72 20 69 73 20 | 70 6c 61 63 65 64 20 69 |bler is |placed i|
|000001a0| 6e 20 74 68 65 20 4c 49 | 42 52 41 52 59 2e 0d 00 |n the LI|BRARY...|
|000001b0| e6 07 eb 20 33 0d 00 f0 | 05 3a 0d 00 fa 0e 73 69 |... 3...|.:....si|
|000001c0| 7a 65 25 3d 26 31 30 30 | 0d 01 04 11 de 20 63 6f |ze%=&100|..... co|
|000001d0| 64 65 25 20 73 69 7a 65 | 25 0d 01 0e 05 3a 0d 01 |de% size|%....:..|
|000001e0| 18 0b 73 70 20 20 3d 31 | 33 0d 01 22 0b 6c 69 6e |..sp  =1|3..".lin|
|000001f0| 6b 3d 31 34 0d 01 2c 05 | 3a 0d 01 36 2c f4 20 56 |k=14..,.|:..6,. V|
|00000200| 61 72 69 61 62 6c 65 73 | 20 66 6f 72 20 74 68 65 |ariables| for the|
|00000210| 20 70 61 72 74 73 20 6f | 66 20 74 68 65 20 61 6e | parts o|f the an|
|00000220| 73 77 65 72 2e 0d 01 40 | 0b 77 6f 72 64 25 3d 30 |swer...@|.word%=0|
|00000230| 0d 01 4a 0e 61 6e 73 77 | 65 72 24 3d 22 22 0d 01 |..J.answ|er$=""..|
|00000240| 54 0e 6e 75 6d 62 65 72 | 24 3d 22 22 0d 01 5e 10 |T.number|$=""..^.|
|00000250| 65 78 70 6f 6e 65 6e 74 | 24 3d 22 22 0d 01 68 0c |exponent|$=""..h.|
|00000260| 73 69 67 6e 24 3d 22 22 | 0d 01 72 05 3a 0d 01 7c |sign$=""|..r.:..||
|00000270| 15 e3 20 70 61 73 73 25 | 3d 30 20 b8 20 33 20 88 |.. pass%|=0 . 3 .|
|00000280| 20 33 0d 01 86 0c 50 25 | 3d 63 6f 64 65 25 0d 01 | 3....P%|=code%..|
|00000290| 90 0e 5b 4f 50 54 20 70 | 61 73 73 25 0d 01 9a 36 |..[OPT p|ass%...6|
|000002a0| 53 54 4d 46 44 20 28 73 | 70 29 21 2c 7b 52 30 2d |STMFD (s|p)!,{R0-|
|000002b0| 52 31 32 2c 6c 69 6e 6b | 7d 20 20 20 3b 20 53 74 |R12,link|}   ; St|
|000002c0| 6f 72 65 20 74 68 65 20 | 72 65 67 69 73 74 65 72 |ore the |register|
|000002d0| 73 2e 0d 01 a4 35 a4 5f | 46 70 41 73 73 28 22 41 |s....5._|FpAss("A|
|000002e0| 54 4e 45 20 46 30 2c 23 | 31 2e 30 22 29 20 20 20 |TNE F0,#|1.0")   |
|000002f0| 20 3b 20 46 69 6e 64 20 | 61 72 63 74 61 6e 28 31 | ; Find |arctan(1|
|00000300| 29 3d 70 69 2f 34 2e 0d | 01 ae 33 a4 5f 46 70 41 |)=pi/4..|..3._FpA|
|00000310| 73 73 28 22 4d 55 46 45 | 20 46 30 2c 46 30 2c 23 |ss("MUFE| F0,F0,#|
|00000320| 34 2e 30 22 29 20 3b 20 | 54 69 6d 65 73 20 34 20 |4.0") ; |Times 4 |
|00000330| 74 6f 20 67 65 74 20 70 | 69 2e 0d 01 b8 37 41 44 |to get p|i....7AD|
|00000340| 52 20 52 30 2c 61 6e 73 | 77 65 72 20 20 20 20 20 |R R0,ans|wer     |
|00000350| 20 20 20 20 20 20 20 20 | 20 20 3b 20 50 6c 61 63 |        |  ; Plac|
|00000360| 65 20 66 6f 72 20 74 68 | 65 20 61 6e 73 77 65 72 |e for th|e answer|
|00000370| 2e 0d 01 c2 2f a4 5f 46 | 70 41 73 73 28 22 53 54 |..../._F|pAss("ST|
|00000380| 46 50 20 46 30 2c 5b 52 | 30 5d 2c 23 30 22 29 20 |FP F0,[R|0],#0") |
|00000390| 3b 20 53 74 6f 72 65 20 | 69 6e 20 50 42 43 44 2e |; Store |in PBCD.|
|000003a0| 0d 01 cc 30 4c 44 4d 46 | 44 20 28 73 70 29 21 2c |...0LDMF|D (sp)!,|
|000003b0| 7b 52 30 2d 52 31 32 2c | 50 43 7d 20 20 20 20 20 |{R0-R12,|PC}     |
|000003c0| 3b 20 42 61 63 6b 20 74 | 6f 20 42 41 53 49 43 2e |; Back t|o BASIC.|
|000003d0| 0d 01 d6 0b 2e 61 6e 73 | 77 65 72 0d 01 e0 0a 45 |.....ans|wer....E|
|000003e0| 51 55 44 20 30 0d 01 ea | 0a 45 51 55 44 20 30 0d |QUD 0...|.EQUD 0.|
|000003f0| 01 f4 0a 45 51 55 44 20 | 30 0d 01 fe 0a 45 51 55 |...EQUD |0....EQU|
|00000400| 44 20 30 0d 02 08 05 5d | 0d 02 12 0b ed 20 70 61 |D 0....]|..... pa|
|00000410| 73 73 25 0d 02 1c 05 3a | 0d 02 26 0b d6 20 63 6f |ss%....:|..&.. co|
|00000420| 64 65 25 0d 02 30 05 3a | 0d 02 31 05 f1 0d 02 3a |de%..0.:|..1....:|
|00000430| 23 ff 28 22 4d 45 4d 4f | 52 59 49 20 22 2b c3 7e |#.("MEMO|RYI "+.~|
|00000440| 28 63 6f 64 65 25 29 2b | 22 20 20 2b 32 34 22 29 |(code%)+|"  +24")|
|00000450| 0d 02 44 05 3a 0d 02 58 | 05 3a 0d 02 62 21 e3 20 |..D.:..X|.:..b!. |
|00000460| 77 6f 72 64 25 3d 61 6e | 73 77 65 72 20 b8 20 61 |word%=an|swer . a|
|00000470| 6e 73 77 65 72 2b 38 20 | 88 20 34 0d 02 6c 2d 61 |nswer+8 |. 4..l-a|
|00000480| 6e 73 77 65 72 24 3d 61 | 6e 73 77 65 72 24 2b c2 |nswer$=a|nswer$+.|
|00000490| 22 30 30 30 30 30 30 30 | 30 22 2b c3 7e 28 21 77 |"0000000|0"+.~(!w|
|000004a0| 6f 72 64 25 29 2c 38 29 | 0d 02 76 0b ed 20 77 6f |ord%),8)|..v.. wo|
|000004b0| 72 64 25 0d 02 80 05 3a | 0d 02 8a 18 6e 75 6d 62 |rd%....:|....numb|
|000004c0| 65 72 24 3d c2 61 6e 73 | 77 65 72 24 2c 31 39 29 |er$=.ans|wer$,19)|
|000004d0| 0d 02 94 28 6e 75 6d 62 | 65 72 24 3d c0 6e 75 6d |...(numb|er$=.num|
|000004e0| 62 65 72 24 2c 31 29 2b | 22 2e 22 2b c2 6e 75 6d |ber$,1)+|"."+.num|
|000004f0| 62 65 72 24 2c 31 38 29 | 0d 02 9e 1b 65 78 70 6f |ber$,18)|....expo|
|00000500| 6e 65 6e 74 24 3d c1 61 | 6e 73 77 65 72 24 2c 32 |nent$=.a|nswer$,2|
|00000510| 2c 34 29 0d 02 a8 15 73 | 69 67 6e 24 3d c0 61 6e |,4)....s|ign$=.an|
|00000520| 73 77 65 72 24 2c 31 29 | 0d 02 b2 3e e7 20 a7 22 |swer$,1)|...>. ."|
|00000530| 32 33 22 2c 73 69 67 6e | 24 29 20 8c 20 6e 75 6d |23",sign|$) . num|
|00000540| 62 65 72 24 3d 22 2d 22 | 2b 6e 75 6d 62 65 72 24 |ber$="-"|+number$|
|00000550| 20 8b 20 6e 75 6d 62 65 | 72 24 3d 22 2b 22 2b 6e | . numbe|r$="+"+n|
|00000560| 75 6d 62 65 72 24 0d 02 | bc 48 e7 20 a7 22 31 33 |umber$..|.H. ."13|
|00000570| 22 2c 73 69 67 6e 24 29 | 20 8c 20 6e 75 6d 62 65 |",sign$)| . numbe|
|00000580| 72 24 2b 3d 22 20 45 2d | 22 2b 65 78 70 6f 6e 65 |r$+=" E-|"+expone|
|00000590| 6e 74 24 20 8b 20 6e 75 | 6d 62 65 72 24 2b 3d 22 |nt$ . nu|mber$+="|
|000005a0| 20 45 2b 22 2b 65 78 70 | 6f 6e 65 6e 74 24 0d 02 | E+"+exp|onent$..|
|000005b0| c6 25 f1 20 27 22 54 68 | 65 20 76 61 6c 75 65 20 |.%. '"Th|e value |
|000005c0| 6f 66 20 70 69 20 69 73 | 20 20 22 3b 6e 75 6d 62 |of pi is|  ";numb|
|000005d0| 65 72 24 0d 02 d0 05 3a | 0d 02 da 05 e0 0d ff    |er$....:|....... |
+--------+-------------------------+-------------------------+--------+--------+